home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / snakeoil.lqr / IBM.H < prev    next >
Text File  |  1985-07-06  |  1KB  |  23 lines
  1. /************************************************************************
  2.  (CI-C86)                                      Karl L. Remmler
  3.          IBM.H - a preprocessor for IBM-PC Computer Terminals
  4.  
  5. *************************************************************************/
  6.  
  7. #include "ibm.c" 
  8.  
  9. #define BEL      bdos(2,'\07')     /* Ring Bell            */
  10. #define CLS      cls()             /* Clear the screen         */
  11. #define INKEY      bdos(1,0)        /* CP/M Function Call #1        */
  12. #define PRINT(X)  bdos(9,"X$")        /* CP/M Function Call #9        */
  13. #define BEGIN      {            /* Just like Pascal         */
  14. #define END      }            /* Just like Pascal         */
  15. #define YES      1            /* TRUE                */
  16. #define NO      0            /* FALSE                */
  17. #define AEOF      0x1A            /* ASCII EOF for CP/M compatibility    */
  18. #define MAXLEN      80                /* Screen width (# of characters    */
  19. #define void      int            /* void not supported        */
  20. #define EEL       eel()             /* Erase entire line                */
  21. #define EOL       eol()             /* Erase to end of line             */                     
  22. #define CUH       locate(0,0)       /* Send cursor home                 */
  23.